home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / Church.rx < prev    next >
Encoding:
Text File  |  2001-10-23  |  655 b   |  43 lines
  1. /* Alchemy script
  2. 000
  3. 0
  4. 0
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_AvoidRefresh
  12.     pp_ClosestColor 0 0 0
  13.     color=result
  14.     pp_SetApen color
  15.     pp_ClosestColor 255 255 255
  16.     color=result
  17.     pp_SetBpen color
  18.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  19.  
  20.     pp_ComposeReqOff
  21.   pp_Compose 0 100 0
  22.     pp_EffectOn
  23.     pp_Grey
  24.     pp_BoxF x1 y1 x2 y2    
  25.   pp_LineArt 3
  26.     pp_BoxF x1 y1 x2 y2
  27.   pp_GaussianBlur 10
  28.     pp_BoxF x1 y1 x2 y2
  29.   pp_LineArt 2
  30.   pp_Compose 0 50 0    
  31.     pp_BoxF x1 y1 x2 y2
  32.   pp_LineArt 2
  33.   pp_Compose 4 50 0    
  34.     pp_BoxF x1 y1 x2 y2
  35.   pp_MaskOff
  36.     pp_EffectOff
  37.     pp_ComposeReqOn
  38.   pp_Compose 0 100 0    
  39.     pp_PermitRefresh
  40.  
  41. EXIT    
  42.          
  43.